suma :: (Int, Int) -> Int
suma (x,y) = x+y

curry :: ((a,b) -> c) -> (a -> b -> c)
curry f = \x y -> (f (x,y))

uncurry :: (a -> b -> c) -> ((a,b) -> c)
uncurry f = \(x,y) -> (f x y)

-- 3) No, con un numero arbitrario no, siempre tiene que ser fijo